home *** CD-ROM | disk | FTP | other *** search
/ 3D GFX / 3D GFX.iso / amiutils / q_t / tiffdatatype / install < prev    next >
Encoding:
Text File  |  1995-12-31  |  3.3 KB  |  146 lines
  1. ;
  2. ; $VER: TIFF datatype install 1.0 (18.7.95)
  3. ;
  4. ; Copyright (c) 1995 Bert Wynants.
  5. ;
  6. ;****************************************************************************
  7. ;
  8. ; English texts
  9. ;
  10.  
  11. (set #bad-kick (cat "You must have AmigaOS Release 3 or newer to be able to "
  12.     "use the TIFF DataType.")
  13. )
  14.  
  15. (set #TIFF-descr (cat "    The TIFF DataTypes Descriptor is required to "
  16.     "identify TIFF files.  This file is usually placed into the "
  17.     "\"DEVS:DataTypes\" drawer, it will then automatically be added to the "
  18.     "list of available DataTypes on every reboot.\n    You may also place it "
  19.     "into the systems \"Storage/DataTypes\" drawer and only activate the "
  20.     "DataType, when you need it (simply double-click the \"TIFF\" icon).\n\n"
  21.     @copyfiles-help)
  22. )
  23.  
  24. (set #support-me (cat "This is Freeware.\n\nIf you use this DataType "
  25.     "regulary, please consider the amount of work I put into it.  Thank "
  26.     "you.\n\n")
  27. )
  28.  
  29. ;****************************************************************************
  30. ;
  31. ; Setup
  32. ;
  33.  
  34. (set @default-dest "")
  35.  
  36. (set class-dest "SYS:Classes")
  37. (set dt-dest "DEVS:DataTypes")
  38. (set storage "SYS:Storage")
  39. (set dt-storage "SYS:Storage/DataTypes")
  40.  
  41. (makedir storage)
  42. (makedir dt-storage)
  43. (makedir dt-dest)
  44.  
  45. (if (not (exists class-dest))
  46.     (set class-dest "LIBS:")
  47. )
  48.  
  49. (complete 0)
  50.  
  51. (if (< (/ (getversion) 65536) 39)
  52.     (abort #bad-kick)
  53. )
  54.  
  55. ;****************************************************************************
  56. ;
  57. ; Welcome
  58. ;
  59.  
  60. (welcome)
  61.  
  62. (message "\n     TIFF DataType \n\nCopyright ⌐ 1995 "
  63.     "Bert Wynants, All Rights Reserved.\n"
  64. )
  65.  
  66. (complete 20)
  67.  
  68. ;****************************************************************************
  69. ;
  70. ; Install DataTypes descriptor
  71. ;
  72.  
  73. (if (exists (tackon dt-dest "TIFF.info"))
  74.     (
  75.         (copyfiles
  76.             (help @copyfiles-help)
  77.             (prompt "Cloning icon...")
  78.             (source (tackon dt-dest "ILBM.info"))
  79.             (newname "TIFF.info")
  80.             (dest "Devs/DataTypes")
  81.             (optional nofail)
  82.         )
  83.         (tooltype
  84.             (help @tooltype-help)
  85.             (prompt "Unsnapshooting icon...")
  86.             (dest "Devs/DataTypes/TIFF")
  87.             (noposition)
  88.         )
  89.     )
  90. )
  91.  
  92. (copyfiles
  93.     (help #TIFF-descr)
  94.     (prompt "Copying TIFF DataTypes Descriptor...")
  95.     (source "Devs/DataTypes/TIFF")
  96.     (dest dt-dest)
  97.     (infos)
  98.     (confirm)
  99. )
  100.  
  101. (complete 25)
  102.  
  103. ;****************************************************************************
  104. ;
  105. ; Copy Documentation
  106. ;
  107.  
  108. (set doc-dir (askdir (help @askdir-help) (prompt "Select a directory for the documentation.") (default "HELP:english/")))
  109. (copyfiles
  110.     (help @copyfiles-help)
  111.     (prompt "Copying TIFF.guide...")
  112.     (source "TIFF.guide")
  113.     (dest doc-dir)
  114.     (infos)
  115.     (optional nofail)
  116.     (confirm)
  117. )
  118.  
  119. ;****************************************************************************
  120. ;
  121. ; Install class
  122. ;
  123.  
  124. (complete 90)
  125.  
  126. (copylib
  127.     (help @copylib-help)
  128.     (prompt "Copying TIFF.datatype...")
  129.     (source "Classes/DataTypes/TIFF.datatype")
  130.     (dest (tackon class-dest "DataTypes"))
  131.     (confirm)
  132. )
  133.  
  134. ;****************************************************************************
  135. ;
  136. ; Exit
  137. ;
  138.  
  139. (
  140.     (run "Avail >NIL: FLUSH")
  141.     (run "AddDataTypes >NIL: Devs/DataTypes/TIFF")
  142.     (complete 100)
  143.     (exit #support-me "The TIFF DataType is now ready to be used.  Enjoy!")
  144. )
  145.  
  146.